home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
language
/
clisp_c.zoo
/
backquot.fas
< prev
next >
Wrap
Text File
|
1993-06-05
|
7KB
|
140 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-2 #11Y(00 00 00 00 00 01 D4 2F 5F 19 01)
(SPECIAL *BACKQUOTE-LEVEL*)
)
#Y(#:TOP-LEVEL-FORM-3 #11Y(00 00 00 00 00 01 D4 2F 5F 19 01)
(SPECIAL *NSPLICE-FUN*)
)
#Y(#:TOP-LEVEL-FORM-4 #11Y(00 00 00 00 00 01 BE 0F 01 19 01) NCONC
*NSPLICE-FUN*
)
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
|`-READER| REMOVE-OLD-DEFINITIONS
#Y(|`-READER|
#50Y(00 02 00 00 00 03 0E 00 1B 01 BF 14 30 AB 10 00 AD 5C 5B 5C 69 79 D6
A9 67 03 AA 67 04 67 05 73 03 63 00 DA 88 01 2B 04 A8 2D 07 EA 15 16
01 11 19 03
)
*BACKQUOTE-LEVEL* 0. BACKQUOTE REMOVE-BACKQUOTE-THIRD UNQUOTE-LEVEL
BACKQUOTE-1 1. ELIM-UNQUOTE-DUMMY
) )
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
|,-READER| REMOVE-OLD-DEFINITIONS
#Y(|,-READER|
#82Y(00 02 00 00 00 03 5B AB 36 03 69 7F 0E 00 1C 0A 63 00 86 A6 10 C1 14
D6 5A 01 BF 1A 79 AE 36 03 2F 7D C3 1A 14 63 00 30 AC 10 00 AB 23 04
6E AB 24 07 12 AE 36 03 2F 7D C6 14 DA B0 5C 5B 5C 69 79 59 02 1A 07
DA AF 5C 5B 5C 2F 79 14 59 02 11 19 04
)
*BACKQUOTE-LEVEL* "~S: comma is illegal outside of backquote" READ
"~S: more commas out than backquotes in, is illegal" #\@ SPLICE UNQUOTE
#\. NSPLICE
) )
#Y(#:TOP-LEVEL-FORM-7
#26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
19 01
)
REMOVE-BACKQUOTE-THIRD REMOVE-OLD-DEFINITIONS
#Y(REMOVE-BACKQUOTE-THIRD
#54Y(00 01 00 00 00 02 93 1F 1E 8B 01 24 02 04 93 54 20 1C 8B 01 64 70 8C
02 26 6C 55 19 02 D5 61 00 00 AB 31 00 24 19 02 A9 85 4A 72 93 19 02
D6 94 54 70 59 02 19 02
)
NIL VECTOR BACKQUOTE
) )
#Y(#:TOP-LEVEL-FORM-8
#26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
19 01
)
ELIM-UNQUOTE-DUMMY REMOVE-OLD-DEFINITIONS
#Y(ELIM-UNQUOTE-DUMMY
#59Y(00 01 00 00 00 02 93 1F 24 8B 01 A8 64 78 8C 03 A8 64 73 AB 95 22 04
A9 93 21 1D AA 93 55 19 06 C0 19 02 D7 61 00 00 AB 31 00 24 19 02 A9
23 01 6F A9 85 4A 6E 93 19 02 97 19 06
)
NIL UNQUOTE-DUMMY UNQUOTE VECTOR
) )
#Y(#:TOP-LEVEL-FORM-9
#26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
19 01
)
UNQUOTE-LEVEL REMOVE-OLD-DEFINITIONS
#Y(UNQUOTE-LEVEL
#167Y(00 01 00 01 00 08 28 29 01 37 02 01 BF 0B 00 00 95 1F 2F 8B 03 24
04 04 95 54 20 3A 8B 03 24 07 05 95 54 20 80 69 8B 03 60 01 00 64
59 8C 04 60 02 00 26 52 55 19 04 D6 A9 65 03 01 AD 31 00 24 19 04
AB 85 4A 71 95 19 04 D9 96 54 70 59 02 19 04 92 54 53 19 05 60 00
00 85 A6 6D 95 54 70 60 01 00 6A AC 64 FF 9F 92 1F 11 8B 00 24 06
0C 92 54 53 1F 07 92 54 53 70 23 05 56 D8 A9 59 02 19 05 97 54 54
70 60 03 00 64 FF 7B 59 01 1A 12 DB 96 54 70 60 02 00 6A AB 64 FF
6B 97 54 54 20 61 00 14 31 02 1F 19 04
)
NIL 0. VECTOR
#Y(UNQUOTE-LEVEL-1 #16Y(00 01 00 00 00 02 A9 61 00 00 07 01 00 32 19 02)
NIL
)
UNQUOTE UNQUOTE-VALUE QUOTE BACKQUOTE
) )
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
SPLICING-P REMOVE-OLD-DEFINITIONS
#Y(SPLICING-P
#27Y(00 01 00 00 00 02 A9 30 2B 1E 0E 8B 01 A8 BE 52 1D 05 A8 BF 52 19 03
19 03 19 02
)
SPLICE NSPLICE
) )
#Y(#:TOP-LEVEL-FORM-11
#26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
19 01
)
BACKQUOTE-1 REMOVE-OLD-DEFINITIONS
#Y(BACKQUOTE-1
#340Y(00 01 00 00 00 02 93 1F 80 8C 8B 01 23 0A 80 AE 8B 01 23 0B 80 AD
8B 01 23 0D 80 AA 8B 01 24 0F 05 93 54 20 80 AE 93 53 1F 07 93 53
70 23 0B 80 BC 93 53 1F 81 0F 93 53 70 24 0D 81 08 93 53 54 53 1F
09 93 53 54 53 70 23 0A 80 D9 93 53 70 64 FF B4 94 53 71 64 FF AE
2E 14 1A 80 ED 93 19 02 D6 D7 D8 28 14 65 05 01 AD 6B 00 24 31 02
1F 19 02 DB DC DD AB 6B 00 24 59 02 19 03 90 01 AA 87 00 25 5D D8
61 00 00 AB 6B 00 24 DA A9 87 00 26 60 DC 93 55 19 03 A9 86 2D 0B
A9 84 63 07 A9 AA 2F 51 21 FF B8 A9 85 2F FF B3 A9 85 2E FF AE A9
85 48 FF A9 A9 85 4A 44 DB AA 59 02 19 02 93 54 53 19 02 E0 5A 00
E2 5A 00 96 54 54 70 64 FF 36 59 01 1A 13 D8 E4 CF 10 12 98 54 70
26 FF 27 11 14 96 54 54 20 63 00 14 31 03 1F 19 02 93 53 54 53 1F
FF 58 93 53 54 53 70 24 0A FF 4F 93 53 54 70 64 FF 02 8C 02 64 FE
FD 2E 13 19 02 63 12 AA 59 02 19 04 A9 7F 01 75 93 19 04 63 12 AA
8C 02 31 02 1F 19 04 93 53 54 70 64 FE DA 8C 02 64 FE D5 8A 00 60
92 1F 06 8B 00 0E 12 21 5E 63 12 AA AA 59 03 19 04 8B 01 26 FE BC
14 8C 02 64 FE B6 2E 14 19 02
)
NIL SPLICING-P MULTIPLE-VALUE-CALL #'VECTOR LIST
#Y(BACKQUOTE-1-1
#55Y(00 01 00 00 00 02 A9 7F 01 11 D9 94 14 07 00 00 6C 59 02 19 02 D7
94 54 53 1A 71 93 54 53 1F 07 93 54 53 70 23 02 6E 8B 01 07 00 00
6C 8C 02 07 00 00 6C 2E 04 19 02
)
NIL SPLICING-P UNQUOTE-VALUE VALUES-LIST BACKQUOTE-CONS VALUES
)
#.#'CONSTANTP QUOTE VECTOR #.#'EVAL UNQUOTE-VALUE SPLICE
"The syntax ,@form is valid only in lists" NSPLICE
"The syntax ,.form is valid only in lists" BACKQUOTE 'BACKQUOTE APPEND
*NSPLICE-FUN* BACKQUOTE-APPEND BACKQUOTE-CONS
) )
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
BACKQUOTE-APPEND REMOVE-OLD-DEFINITIONS
#Y(BACKQUOTE-APPEND
#46Y(00 02 00 00 00 03 8A 01 15 93 1F 05 8B 01 23 01 14 D5 AB AB 59 03 19
03 D5 AB 59 02 19 03 AA 7F 00 76 94 19 03 D5 AB 8C 03 31 02 1F 19 03
)
SPLICING-P APPEND
) )
#Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
BACKQUOTE-CONS REMOVE-OLD-DEFINITIONS
#Y(BACKQUOTE-CONS
#84Y(00 02 00 00 00 03 AA 84 63 04 A9 83 63 0D 89 01 2A D7 95 14 59 02 19
03 C0 1A 0E AA 77 60 02 A9 77 60 01 D4 AB 23 01 70 95 14 95 55 1A 65
C1 1A 01 C3 14 AB 8C 03 31 02 1F 19 03 93 1F 0F 8B 01 23 03 6B 8B 01
23 05 69 8B 01 23 04 64 D8 AB AB 59 03 19 03
)
QUOTE UNQUOTE UNQUOTE-DUMMY LIST CONS LIST*
) )